"
I am an object that doesn't always report #= correctly.  Used for testing the EqualityTester.
"
Class {
	#name : 'BadEqualer',
	#superclass : 'Object',
	#category : 'SUnit-Core-Utilities',
	#package : 'SUnit-Core',
	#tag : 'Utilities'
}

{ #category : 'comparing' }
BadEqualer >> = other [
	"Tell sometimes if the giving object and the receiver are the same object"

	self class = other class
		ifFalse: [^ false].
	^ 100 atRandom < 30
]
